home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / bin_c / compile_to_c5.c < prev    next >
C/C++ Source or Header  |  1998-12-22  |  4KB  |  264 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_c.h"
  9.  
  10.  
  11. T381 r381realloc(T381 C,T2 a1,T2 a2){
  12. T381 R=NULL;
  13. R=calloc(a2,sizeof(T0*));
  14. r381copy_from(R,C,(a1)-(1));
  15. return R;
  16. }
  17.  
  18.  
  19. void r381set_all_with(T381 C,T0* a1,T2 a2){
  20. T2 _i=0;
  21. _i=a2;
  22. while (!((_i)<(0))) {
  23. (C)[_i]=(a1);
  24. _i=(_i)-(1);
  25. }
  26. }
  27.  
  28.  
  29. void r381copy_from(T381 C,T381 a1,T2 a2){
  30. T2 _i=0;
  31. _i=a2;
  32. while (!((_i)<(0))) {
  33. (C)[_i]=((a1)[_i]);
  34. _i=(_i)-(1);
  35. }
  36. }
  37.  
  38.  
  39. T77 r77realloc(T77 C,T2 a1,T2 a2){
  40. T77 R=NULL;
  41. R=calloc(a2,sizeof(T0*));
  42. r77copy_from(R,C,(a1)-(1));
  43. return R;
  44. }
  45.  
  46.  
  47. void r77copy_from(T77 C,T77 a1,T2 a2){
  48. T2 _i=0;
  49. _i=a2;
  50. while (!((_i)<(0))) {
  51. (C)[_i]=((a1)[_i]);
  52. _i=(_i)-(1);
  53. }
  54. }
  55.  
  56.  
  57. T209 r209realloc(T209 C,T2 a1,T2 a2){
  58. T209 R=NULL;
  59. R=calloc(a2,sizeof(T0*));
  60. r209copy_from(R,C,(a1)-(1));
  61. return R;
  62. }
  63.  
  64.  
  65. void r209clear_all(T209 C,T2 a1){
  66. T2 _i=0;
  67. T0* _v=NULL;
  68. _i=a1;
  69. while (!((_i)<(0))) {
  70. (C)[_i]=(_v);
  71. _i=(_i)-(1);
  72. }
  73. }
  74.  
  75.  
  76. void r209set_all_with(T209 C,T0* a1,T2 a2){
  77. T2 _i=0;
  78. _i=a2;
  79. while (!((_i)<(0))) {
  80. (C)[_i]=(a1);
  81. _i=(_i)-(1);
  82. }
  83. }
  84.  
  85.  
  86. void r209copy_from(T209 C,T209 a1,T2 a2){
  87. T2 _i=0;
  88. _i=a2;
  89. while (!((_i)<(0))) {
  90. (C)[_i]=((a1)[_i]);
  91. _i=(_i)-(1);
  92. }
  93. }
  94.  
  95.  
  96. T335 r335realloc(T335 C,T2 a1,T2 a2){
  97. T335 R=NULL;
  98. R=calloc(a2,sizeof(T0*));
  99. r335copy_from(R,C,(a1)-(1));
  100. return R;
  101. }
  102.  
  103.  
  104. void r335set_all_with(T335 C,T0* a1,T2 a2){
  105. T2 _i=0;
  106. _i=a2;
  107. while (!((_i)<(0))) {
  108. (C)[_i]=(a1);
  109. _i=(_i)-(1);
  110. }
  111. }
  112.  
  113.  
  114. void r335copy_from(T335 C,T335 a1,T2 a2){
  115. T2 _i=0;
  116. _i=a2;
  117. while (!((_i)<(0))) {
  118. (C)[_i]=((a1)[_i]);
  119. _i=(_i)-(1);
  120. }
  121. }
  122.  
  123.  
  124. T383 r383realloc(T383 C,T2 a1,T2 a2){
  125. T383 R=NULL;
  126. R=calloc(a2,sizeof(T0*));
  127. r383copy_from(R,C,(a1)-(1));
  128. return R;
  129. }
  130.  
  131.  
  132. void r383set_all_with(T383 C,T0* a1,T2 a2){
  133. T2 _i=0;
  134. _i=a2;
  135. while (!((_i)<(0))) {
  136. (C)[_i]=(a1);
  137. _i=(_i)-(1);
  138. }
  139. }
  140.  
  141.  
  142. void r383copy_from(T383 C,T383 a1,T2 a2){
  143. T2 _i=0;
  144. _i=a2;
  145. while (!((_i)<(0))) {
  146. (C)[_i]=((a1)[_i]);
  147. _i=(_i)-(1);
  148. }
  149. }
  150.  
  151.  
  152. T329 r329realloc(T329 C,T2 a1,T2 a2){
  153. T329 R=NULL;
  154. R=calloc(a2,sizeof(T0*));
  155. r329copy_from(R,C,(a1)-(1));
  156. return R;
  157. }
  158.  
  159.  
  160. void r329clear_all(T329 C,T2 a1){
  161. T2 _i=0;
  162. T0* _v=NULL;
  163. _i=a1;
  164. while (!((_i)<(0))) {
  165. (C)[_i]=(_v);
  166. _i=(_i)-(1);
  167. }
  168. }
  169.  
  170.  
  171. void r329set_all_with(T329 C,T0* a1,T2 a2){
  172. T2 _i=0;
  173. _i=a2;
  174. while (!((_i)<(0))) {
  175. (C)[_i]=(a1);
  176. _i=(_i)-(1);
  177. }
  178. }
  179.  
  180.  
  181. void r329copy_from(T329 C,T329 a1,T2 a2){
  182. T2 _i=0;
  183. _i=a2;
  184. while (!((_i)<(0))) {
  185. (C)[_i]=((a1)[_i]);
  186. _i=(_i)-(1);
  187. }
  188. }
  189.  
  190.  
  191. T323 r323realloc(T323 C,T2 a1,T2 a2){
  192. T323 R=NULL;
  193. R=calloc(a2,sizeof(T0*));
  194. r323copy_from(R,C,(a1)-(1));
  195. return R;
  196. }
  197.  
  198.  
  199. void r323copy_from(T323 C,T323 a1,T2 a2){
  200. T2 _i=0;
  201. _i=a2;
  202. while (!((_i)<(0))) {
  203. (C)[_i]=((a1)[_i]);
  204. _i=(_i)-(1);
  205. }
  206. }
  207.  
  208.  
  209. T91 r91realloc(T91 C,T2 a1,T2 a2){
  210. T91 R=NULL;
  211. R=calloc(a2,sizeof(T0*));
  212. r91copy_from(R,C,(a1)-(1));
  213. return R;
  214. }
  215.  
  216.  
  217. void r91set_all_with(T91 C,T0* a1,T2 a2){
  218. T2 _i=0;
  219. _i=a2;
  220. while (!((_i)<(0))) {
  221. (C)[_i]=(a1);
  222. _i=(_i)-(1);
  223. }
  224. }
  225.  
  226.  
  227. void r91copy_from(T91 C,T91 a1,T2 a2){
  228. T2 _i=0;
  229. _i=a2;
  230. while (!((_i)<(0))) {
  231. (C)[_i]=((a1)[_i]);
  232. _i=(_i)-(1);
  233. }
  234. }
  235.  
  236.  
  237. T337 r337realloc(T337 C,T2 a1,T2 a2){
  238. T337 R=NULL;
  239. R=calloc(a2,sizeof(T0*));
  240. r337copy_from(R,C,(a1)-(1));
  241. return R;
  242. }
  243.  
  244.  
  245. void r337set_all_with(T337 C,T0* a1,T2 a2){
  246. T2 _i=0;
  247. _i=a2;
  248. while (!((_i)<(0))) {
  249. (C)[_i]=(a1);
  250. _i=(_i)-(1);
  251. }
  252. }
  253.  
  254.  
  255. void r337copy_from(T337 C,T337 a1,T2 a2){
  256. T2 _i=0;
  257. _i=a2;
  258. while (!((_i)<(0))) {
  259. (C)[_i]=((a1)[_i]);
  260. _i=(_i)-(1);
  261. }
  262. }
  263.  
  264.